option explicit


public sub VUI_MovimientoChequeTercero_OnEndEditEvent (byval sNameUI)
	' llamo al metodo padre
	call VUI_OTP_OnEndEditEvent(sNameUI)
	
	' metodo customizado
	dim oUI
	dim oViewUI
	dim oItem
	dim oChequeTercero
	
	oApp.oStorage.BeginTrans
	
    set oUI = oApp.oUIs.Item(sNameUI)
    set oViewUI = oUI.oViewUI
    set oItem = oViewUI.oObjectSelected

    if not oItem is nothing then

        set oChequeTercero = oItem.oObjectProperty("id_cheque_tercero")

        ' Solo se permite modificar si la ote esta pendiente
        if oItem.oSimpleProperty("id_estado").sValue = "1" then
        
        	' Copio el monto del cheque
			oItem.oSimpleProperty("monto").fValue = oChequeTercero.oSimpleProperty("monto").fValue			
			oItem.oSimpleProperty("monto_referencia").fValue = oChequeTercero.oSimpleProperty("monto_referencia").fValue '* oChequeTercero.oObjectProperty("id_moneda").oSimpleProperty("factor").fValue	
			oItem.save

			oApp.oStorage.CommitTrans
						
        else
            oUI.oViewUI.ShowTip Q_ICON_BAD, "No se puede modificar,, El movimiento de cheque de tercero [" & oItem.oSimpleProperty("numero").sValue & "] debe estar en estado pendiente."
			oApp.oStorage.Rollback

        end if

		oUI.oViewUI.RefreshData

	else
		oApp.oStorage.Rollback	
    end if
end sub